﻿<!--#include file="const.asp"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>


<%
if sid="Null" then
	Response.Redirect "login.asp"
	Response.end
end if
IF  Request.QueryString("Action")="login" Then
	call login
else
	call index
end if
end Function



Function index
	dim rs,sql,Runtxt
	Runtxt=qingtian.RunStr
%>
	<card title="基本奖惩配置"><p align="left">
<a href='index.asp?sid=<%=sid%>'>管理首页</a>&gt;<a href='config.asp?sid=<%=sid%>'>网站配置</a>&gt;配置<br/>
==<b>基本奖惩配置</b>==<br/>

<%
		set rs=Server.CreateObject("ADODB.Recordset")
		Sql = "select top 1 *  FROM qingtian_config"
		rs.open sql,conn,1,1
		if not (rs.eof and rs.bof) then
%>

        普通币种<br/>
        <input emptyok="true"   name="bi<%=Runtxt%>" value="<%=rs("bi")%>" maxlength="10" type="text"/><br/>
	高级币种<br/>
        <input emptyok="true"   name="bit<%=Runtxt%>" value="<%=rs("bit")%>" maxlength="10" type="text"/><br/>
        回复奖励<%=rs("bi")%><br/>
        <input format='*N'      name="hua<%=Runtxt%>" value="<%=rs("hua")%>" maxlength="50" type="text"/><br/>
	回复奖励积分<br/>
        <input format='*N'   name="huaa<%=Runtxt%>" value="<%=rs("huaa")%>" maxlength="50" type="text"/><br/>
        发帖奖励<%=rs("bi")%><br/>
        <input format='*N'   name="fae<%=Runtxt%>" value="<%=rs("fae")%>" maxlength="50" type="text"/><br/>
	发帖奖励积分<br/>
        <input format='*N'   name="faee<%=Runtxt%>" value="<%=rs("faee")%>" maxlength="50" type="text"/><br/>
        加精奖励<%=rs("bi")%><br/>
        <input format='*N'   name="jin<%=Runtxt%>" value="<%=rs("jin")%>" maxlength="50" type="text"/><br/>
	加精奖励积分<br/>
        <input format='*N'   name="jinn<%=Runtxt%>" value="<%=rs("jinn")%>" maxlength="50" type="text"/><br/>
        删除扣除<%=rs("bi")%><br/>
        <input format='*N'   name="san<%=Runtxt%>" value="<%=rs("san")%>" maxlength="50" type="text"/><br/>
	删除扣除积分<br/>
        <input format='*N'   name="sann<%=Runtxt%>" value="<%=rs("sann")%>" maxlength="50" type="text"/><br/>
        每日最高允许送出<%=rs("bi")%><br/>
        <input format='*N'   name="mot<%=Runtxt%>" value="<%=rs("mot")%>" maxlength="50" type="text"/><br/>
	每日最高允许送出积分<br/>
        <input format='*N'   name="mon<%=Runtxt%>" value="<%=rs("mon")%>" maxlength="50" type="text"/><br/>
	<anchor>保存设置
    	<go href="config2.asp?Action=login&amp;sid=<%=sid%>" method='post'>
        <postfield name="bi" value="$(bi<%=Runtxt%>)"/>
        <postfield name="bit" value="$(bit<%=Runtxt%>)"/>
        <postfield name="hua" value="$(hua<%=Runtxt%>:n)"/>
        <postfield name="huaa" value="$(huaa<%=Runtxt%>:n)"/>
        <postfield name="fae" value="$(fae<%=Runtxt%>:n)"/>
        <postfield name="faee" value="$(faee<%=Runtxt%>:n)"/>
        <postfield name="jin" value="$(jin<%=Runtxt%>:n)"/>
        <postfield name="jinn" value="$(jinn<%=Runtxt%>:n)"/>
        <postfield name="san" value="$(san<%=Runtxt%>:n)"/>
        <postfield name="sann" value="$(sann<%=Runtxt%>:n)"/>
        <postfield name="mot" value="$(mot<%=Runtxt%>:n)"/>
        <postfield name="mon" value="$(mon<%=Runtxt%>:n)"/>
    	</go>
	</anchor><br/>
<%
		end if
		rs.Close
		Set rs = Nothing
%>
-------------<br/>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
End Function
Function login
%>
<card id="login" title="基本奖惩配置" ontimer="index.asp?sid=<%=sid%>"><timer value="20"/><p align="left">
<%
		dim hua,huaa,fae,faee,jin,jinn,san,sann,mot,mon,bi,bit,rs,sql,errs
		bi=TRim(Request.form("bi"))
		bit=TRim(Request.form("bit"))
		hua=Request.form("hua")
		huaa=Request.form("huaa")
		fae=Request.form("fae")
		faee=Request.form("faee")
		jin=Request.Form("jin")
		jinn=Request.Form("jinn")
		san=Request.Form("san")
		sann=Request.Form("sann")
		mot=Request.Form("mot")
		mon=Request.Form("mon")
		if hua="" then hua=0
		if huaa="" then huaa=0
		if fae="" then fae=0
		if faee="" then faee=0
		if jin="" then jin=0
		if jinn="" then jinn=0
		if san="" then san=0
		if sann="" then sann=0
		if mot="" then mot=0
		if mon="" then mon=0
		if bi="" then errs=errs & "普通币种名称不能为空<br/>"
		if bit="" then errs=errs & "高级币种名称不能为空<br/>"

	if errs="" then

		set rs=Server.CreateObject("ADODB.Recordset")
		Sql = "select top 1 * FROM qingtian_config"
		rs.open sql,conn,1,3
		if not (rs.eof and rs.bof) then
			rs("hua")=hua
			rs("huaa")=huaa
			rs("fae")=fae
			rs("faee")=faee
			rs("jin")=jin
			rs("jinn")=jinn
			rs("san")=san
			rs("sann")=sann
			rs("mot")=mot
			rs("mon")=mon
			rs("bi")=bi
			rs("bit")=bit
			Application(Request.ServerVariables("SERVER_NAME") & "bi")=bi
			Application(Request.ServerVariables("SERVER_NAME") & "bit")=bit

		rs.update()
%>
保存设置成功!<br/>
<%
                else
%>
保存设置失败!<br/>
<%   
		
		end if
		rs.Close
		Set rs = Nothing



	else
%>
		<%=errs%>
		<a href="config2.asp?sid=<%=sid%>">返回修改</a><br/>
<%
	end if
%>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
end Function 
%>
